home *** CD-ROM | disk | FTP | other *** search
- #! /bin/sh
- # ifnames - print the identifiers used in C preprocessor conditionals
- # Copyright (C) 1994, 1995 Free Software Foundation, Inc.
-
- # This program is free software; you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation; either version 2, or (at your option)
- # any later version.
-
- # This program is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
-
- # You should have received a copy of the GNU General Public License
- # along with this program; if not, write to the Free Software
- # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
- # Reads from stdin if no files are given.
- # Writes to stdout.
-
- # Written by David MacKenzie <djm@gnu.ai.mit.edu>
- # and Paul Eggert <eggert@twinsun.com>.
-
- usage="\
- Usage: ifnames [-h] [--help] [-m dir] [--macrodir=dir] [--version] [file...]"
- show_version=no
-
- : ${AC_MACRODIR=@datadir@}
-
- while test $# -gt 0; do
- case "$1" in
- -h | --help | --h* )
- echo "$usage"; exit 0 ;;
- --macrodir=* | --m*=* )
- AC_MACRODIR="`echo \"$1\" | sed -e 's/^[^=]*=//'`"
- shift ;;
- -m | --macrodir | --m* )
- shift
- test $# -eq 0 && { echo "$usage" 1>&2; exit 1; }
- AC_MACRODIR="$1"
- shift ;;
- --version | --versio | --versi | --vers)
- show_version=yes; shift ;;
- --) # Stop option processing.
- shift; break ;;
- -*) echo "$usage" 1>&2; exit 1 ;;
- *) break ;;
- esac
- done
-
- if test $show_version = yes; then
- version=`sed -n 's/define.AC_ACVERSION.[ ]*\([0-9.]*\).*/\1/p' \
- $AC_MACRODIR/acgeneral.m4`
- echo "Autoconf version $version"
- exit 0
- fi
-
- @AWK@ '
- # Record that sym was found in FILENAME.
- function file_sym(sym, i, fs) {
- if (sym ~ /^[A-Za-z_]/) {
- if (!found[sym,FILENAME]) {
- found[sym,FILENAME] = 1
-
- # Insert FILENAME into files[sym], keeping the list sorted.
- i = 1
- fs = files[sym]
- while (match(substr(fs, i), /^ [^ ]*/) \
- && substr(fs, i + 1, RLENGTH - 1) < FILENAME) {
- i += RLENGTH
- }
- files[sym] = substr(fs, 1, i - 1) " " FILENAME substr(fs, i)
- }
- }
- }
-
- /^[\t ]*#/ {
- if (sub(/^[\t ]*#[\t ]*ifn?def[\t ]+/, "", $0)) {
- sub(/[^A-Za-z_0-9].*/, "", $0)
- file_sym($0)
- }
- if (sub(/^[\t ]*#[\t ]*(el)?if[\t ]+/, "", $0)) {
- # Remove comments. Not perfect, but close enough.
- gsub(/\/\*[^\/]*(\*\/)?/, "", $0)
-
- for (i = split($0, field, /[^A-Za-z_0-9]+/); 1 <= i; i--) {
- if (field[i] != "defined") {
- file_sym(field[i])
- }
- }
- }
- }
-
- END {
- for (sym in files) {
- print sym files[sym]
- }
- }
- ' ${1+"$@"} | sort
-